home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / disk_tools / hd-tools / s / os-startup < prev    next >
Text File  |  1978-06-29  |  2KB  |  40 lines
  1. ; Startup-sequence für die Unterscheidung von verschieden
  2. ; Betriebssystemversionen
  3.  
  4. FAILAT 11                               ; setze Fehlerlevel
  5.  
  6. OS-Test                                 ; Teste die Kickstartversion
  7. if ERROR                                ; bei Kickstart 2.0
  8.   path dh0:c                            ; durchsuche das neue C-Verzeichniss
  9.   assign sys: dh0:                      ; weise dem logischen Laufwerk SYS:
  10.                                         ; das Laufwerk dh0: zu
  11.   assign c: dh0:c
  12.   assign s: dh0:s
  13.   assign libs: dh0:libs
  14.   assign devs: dh0:devs
  15.   assign fonts: dh0:fonts
  16.   assign l: dh0:l
  17.   assign ENVARC: dh0:prefs/env-archive
  18.   cd dh0:                               ; wechsel das aktuelle Laufwerk
  19.   run >NIL: execute s/startup-sequence  ; führe die Startup-Sequence aus
  20.   wait 10                               ; warte 10 Sekunden
  21.   prefs/palette use                     ; setze die richtigen Farben
  22.   prefs/pointer use                     ; setze den richtigen Mauszeiger
  23.   endcli                                ; beende den CLI-Prozeß
  24. endif
  25. OS-Test
  26. if WARN                                 ; Kickstart 1.3
  27.   path dh1:c                            ; durchsuche das neue C-Verzeichnis
  28.   assign sys: dh1:                      ; weise dem logischen Laufwerk SYS:
  29.                                         ; das Laufwerk dh0: zu
  30.   assign c: dh1:c
  31.   assign s: dh1:s
  32.   assign libs: dh1:libs
  33.   assign devs: dh1:devs
  34.   assign fonts: dh1:fonts
  35.   assign l: dh1:l
  36.   cd dh1:                               ; wechsel das aktuelle Laufwerk
  37.   execute s/startup-sequence            ; führe die Startup-Sequence aus
  38.   endcli                                ; beende den CLI-Prozeß
  39. endif
  40.